home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
vbasic
/
health.exe
/
MEDHIST.FRM
< prev
next >
Wrap
Text File
|
1993-07-22
|
20KB
|
643 lines
VERSION 2.00
Begin Form medhist
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Caption = "Form3"
ClientHeight = 6840
ClientLeft = 195
ClientTop = 1905
ClientWidth = 9525
Height = 7245
Left = 135
LinkMode = 1 'Source
LinkTopic = "Form3"
ScaleHeight = 6840
ScaleWidth = 9525
Tag = "history"
Top = 1560
Width = 9645
Begin AniPushButton AniButton2
BackColor = &H00FFFFFF&
Height = 480
Left = 4395
PictDrawMode = 1 'Autosize control
Picture = MEDHIST.FRX:0000
Speed = 162
TabIndex = 22
TextPosition = 2 'Left
Top = 6120
Width = 480
End
Begin AniPushButton AniButton1
BackColor = &H00C0C0C0&
Caption = "Back Page"
Height = 465
Index = 1
Left = 360
Picture = MEDHIST.FRX:05E2
Speed = 162
TabIndex = 21
TextPosition = 1 'Right
Top = 6075
Width = 1515
End
Begin AniPushButton AniButton1
BackColor = &H00C0C0C0&
Caption = "Next Page"
Height = 465
Index = 0
Left = 6750
Picture = MEDHIST.FRX:148E
Speed = 162
TabIndex = 20
TextPosition = 2 'Left
Top = 6000
Width = 1440
End
Begin SSCheck Check3D3
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 7
Left = 4440
TabIndex = 16
Top = 5160
Width = 255
End
Begin SSCheck Check3D1
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 7
Left = 240
TabIndex = 7
Top = 5160
Width = 255
End
Begin SSCheck Check3D3
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 6
Left = 4440
TabIndex = 15
Top = 4800
Width = 255
End
Begin SSCheck Check3D2
Caption = " DIABETES"
Font3D = 3 'Inset w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 375
Index = 7
Left = 1440
TabIndex = 32
Top = 4800
Width = 2415
End
Begin SSCheck Check3D1
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 6
Left = 240
TabIndex = 6
Top = 4800
Width = 255
End
Begin SSCheck Check3D4
Caption = " BLOOD TRANSFER"
Font3D = 3 'Inset w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 375
Index = 3
Left = 5880
TabIndex = 39
Top = 4680
Width = 2655
End
Begin SSCheck Check3D3
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 5
Left = 4440
TabIndex = 14
Top = 4440
Width = 255
End
Begin SSCheck Check3D2
Caption = " HERNIA"
Font3D = 3 'Inset w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 375
Index = 6
Left = 1440
TabIndex = 31
Top = 4320
Width = 2415
End
Begin SSCheck Check3D4
Caption = " DEPRESSION"
Font3D = 3 'Inset w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 375
Index = 1
Left = 5880
TabIndex = 38
Top = 4200
Width = 2655
End
Begin SSCheck Check3D3
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 4
Left = 4440
TabIndex = 13
Top = 4080
Width = 255
End
Begin SSCheck Check3D2
Caption = " ANEMIA"
Font3D = 3 'Inset w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 375
Index = 5
Left = 1440
TabIndex = 30
Top = 3840
Width = 2415
End
Begin SSCheck Check3D4
Caption = " CARDIOVASCULAR"
Font3D = 3 'Inset w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 375
Index = 0
Left = 5880
TabIndex = 37
Top = 3720
Width = 2655
End
Begin SSCheck Check3D3
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 3
Left = 4440
TabIndex = 12
Top = 3720
Width = 255
End
Begin SSCheck Check3D1
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 5
Left = 480
TabIndex = 5
Top = 3480
Width = 255
End
Begin SSCheck Check3D3
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 2
Left = 4440
TabIndex = 11
Top = 3360
Width = 255
End
Begin SSCheck Check3D4
Caption = " COPD"
Font3D = 3 'Inset w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 375
Index = 7
Left = 5880
TabIndex = 36
Top = 3240
Width = 2655
End
Begin SSCheck Check3D2
Caption = " THYROID"
Font3D = 3 'Inset w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 375
Index = 4
Left = 1440
TabIndex = 29
Top = 3240
Width = 2415
End
Begin SSCheck Check3D3
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 1
Left = 4440
TabIndex = 10
Top = 3000
Width = 255
End
Begin SSCheck Check3D4
Caption = " CANCER"
Font3D = 3 'Inset w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 375
Index = 2
Left = 5880
TabIndex = 35
Top = 2880
Width = 2655
End
Begin SSCheck Check3D2
Caption = " EPILEPSY"
Font3D = 3 'Inset w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 375
Index = 3
Left = 1680
TabIndex = 28
Top = 2880
Width = 2415
End
Begin SSCheck Check3D1
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 4
Left = 480
TabIndex = 4
Top = 2880
Width = 255
End
Begin SSCheck Check3D1
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 3
Left = 480
TabIndex = 3
Top = 2640
Width = 255
End
Begin SSCheck Check3D4
Caption = " ULCER"
Font3D = 3 'Inset w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 375
Index = 5
Left = 5880
TabIndex = 34
Top = 2400
Width = 2655
End
Begin SSCheck Check3D2
Caption = " ARTHRITIS"
Font3D = 3 'Inset w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 375
Index = 2
Left = 1680
TabIndex = 27
Top = 2400
Width = 2415
End
Begin SSCheck Check3D1
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 2
Left = 480
TabIndex = 2
Top = 2160
Width = 255
End
Begin SSCheck Check3D4
Caption = " SICKLE CELL"
Font3D = 3 'Inset w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 375
Index = 6
Left = 5880
TabIndex = 33
Top = 1920
Width = 2655
End
Begin SSCheck Check3D2
Caption = " HYPERTENSION"
Font3D = 3 'Inset w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 375
Index = 1
Left = 1680
TabIndex = 26
Top = 1920
Width = 2415
End
Begin SSCheck Check3D1
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 1
Left = 480
TabIndex = 1
Top = 1800
Width = 255
End
Begin SSCheck Check3D4
Caption = " CVA"
Font3D = 3 'Inset w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 375
Index = 4
Left = 5880
TabIndex = 17
Top = 1440
Width = 2655
End
Begin SSCheck Check3D3
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 0
Left = 4680
TabIndex = 9
Top = 1440
Width = 255
End
Begin SSCheck Check3D2
Caption = " DIABETES"
Font3D = 3 'Inset w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 375
Index = 0
Left = 1680
TabIndex = 8
Top = 1440
Width = 2415
End
Begin SSCheck Check3D1
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 0
Left = 480
TabIndex = 0
Top = 1440
Width = 255
End
Begin Label Label1
BackColor = &H00C0C0C0&
Caption = "FAMILY"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 13.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Index = 3
Left = 6240
TabIndex = 25
Top = 720
Width = 1335
End
Begin Label Label1
Alignment = 1 'Right Justify
BackColor = &H00C0C0C0&
Caption = "PATIENT"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 13.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Index = 2
Left = 4200
TabIndex = 23
Top = 720
Width = 1335
End
Begin Label Label1
BackColor = &H00C0C0C0&
Caption = "FAMILY"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 13.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Index = 1
Left = 2640
TabIndex = 24
Top = 720
Width = 1335
End
Begin Label Label1
Alignment = 1 'Right Justify
BackColor = &H00C0C0C0&
Caption = "PATIENT"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 13.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Index = 0
Left = 720
TabIndex = 18
Top = 720
Width = 1335
End
Begin Label Label5
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Medical History"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Left = 1440
TabIndex = 19
Top = 0
Width = 6135
End
End
Sub AniButton1_Click (index As Integer)
If smartform(4) Then
Select Case index
Case 1
assess2.Show
medhist.Hide
Case 0
assess3.Show
medhist.Hide
End Select
Else
formcheck "Medical History"
End If
End Sub
Sub AniButton2_Click ()
If smartform(4) Then
menumode medhist
Else
formcheck "Medical History"
End If
End Sub
Sub Check3D2_Click (index As Integer, Value As Integer)
If check3d2(index).Value = -1 Then
check3d2(index).forecolor = &H0&
Else
check3d2(index).forecolor = &HFF0000
End If
End Sub
Sub Check3D4_Click (index As Integer, Value As Integer)
If check3d4(index).Value = -1 Then
check3d4(index).forecolor = &H0&
Else
check3d4(index).forecolor = &HFF0000
End If
End Sub
Sub Form_Load ()
medhist.Move 0, 0, screen.WIDTH, screen.height
anibutton1(1).Move .1 * anibutton1(1).WIDTH, medhist.height - 1.1 * anibutton1(0).height
anibutton2.Move (medhist.WIDTH - anibutton2.WIDTH) / 2, medhist.height - 1.1 * anibutton2.height
anibutton1(0).Move medhist.WIDTH - 1.1 * anibutton1(0).WIDTH, medhist.height - 1.1 * anibutton1(1).height
medhist.Scale (0, 0)-(8, 12)
LABEL1(0).Move .25, 1.5
LABEL1(1).Move 2, 1.5
LABEL1(2).Move 4, 1.5
LABEL1(3).Move 5.75, 1.5
For N = 1 To 8
Check3D1(N - 1).Move LABEL1(0).LEFT + LABEL1(0).WIDTH / 2.3, 2.5 + (N - 1)
Next N
For N = 1 To 8
check3d2(N - 1).Move LABEL1(1).LEFT, 2.5 + (N - 1)
Next N
For N = 1 To 8
CHECK3D3(N - 1).Move LABEL1(2).LEFT + LABEL1(2).WIDTH / 2.3, 2.5 + (N - 1)
Next N
For N = 1 To 8
check3d4(N - 1).Move LABEL1(3).LEFT, 2.5 + (N - 1)
Next N
End Sub
